Module moduleWaitting
    Public Sub runningWait()
        Dim waittingForm As New frmWaitting
        waittingForm.Show()
        waittingForm.Refresh()
        Do While globalVariale.runWaitting = True
            For i As Integer = 1 To 10
                waittingForm.ProgressIndicator.Value += 10
                System.Threading.Thread.Sleep(100)
            Next
            waittingForm.ProgressIndicator.Value = 0
        Loop
        waittingForm.Hide()
        waittingForm.Dispose()
    End Sub
End Module
